home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010a.d64 / voltmeter - demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  32 lines
  1. 10 PRINTCHR$(5);CHR$(14);CHR$(147);
  2. 100 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  3. 200 PRINT"[221]         [214]OLTMETER ([214]1)  [196]EMO         [146][221]";
  4. 300 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  5. 400 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  6. 500 PRINT"[221] [194]EREICH :         [214]OLT [221]             [221]";
  7. 600 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]             [221]";
  8. 700 PRINT"[221] [205]ESSUNG :         [214]OLT [221]             [221]";
  9. 800 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]             [221]";
  10. 900 PRINT"[221]                                      [221]";
  11. 1000 PRINT"[221] [196]ER [205]ESSBEREICH KANN ZWISCHEN  2.000 [221]";
  12. 1100 PRINT"[221] UND  20.00 [214]OLT  MIT  DEM   [211]CHALTER [221]";
  13. 1200 PRINT"[221] ANGEWAEHLT WERDEN.                   [221]";
  14. 1210 PRINT"[221]                                      [221]";
  15. 1300 PRINT"[221] [196]ER [205]ESSWERT WIRD IN EINEM  [211]TRING , [221]";
  16. 1400 PRINT"[221] DER VORHER DEKLARIERT UND MINDESTENS [221]";
  17. 1500 PRINT"[221] SECHS  [218]EICHEN  LANG  SEIN MUSS ,    [221]";
  18. 1600 PRINT"[221] ZURUECKGEGEBEN.                      [221]";
  19. 1700 PRINT"[221]                                      [221]";
  20. 2500 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  21. 2600 ME$="+00.11"
  22. 2610 :
  23. 2700 PRINT""MESS$
  24. 2800 SYS49152,MESS$:REM MESSWERT HOLEN.
  25. 2900 PRINT"";
  26. 2910 :
  27. 2950 REM MESSBEREICH PRUEFEN.
  28. 3000 IFMID$(ME$,3,1)="."THEN PRINT"2.000";
  29. 3100 IFMID$(ME$,4,1)="."THEN PRINT"20.00";
  30. 3200 IFPEEK(203)=64THEN2700
  31. 3300 END
  32.